home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / N-R / Photone Prepress 2.04.cpt / Photone Prepress™v.2.04D.rsrc / PSTx_3_BinComp < prev    next >
Text File  |  1993-03-18  |  3KB  |  220 lines
  1.  
  2. %© 1990 by CEP, Inc., All Rights Reserved
  3.  
  4. /ppSetCScreen
  5. {
  6.     /cSpot exch def
  7.     /cAngle exch def
  8.     /cFreq exch def
  9. } def
  10.  
  11. /ppSetMScreen
  12. {
  13.     /mSpot exch def
  14.     /mAngle exch def
  15.     /mFreq exch def
  16. } def
  17.  
  18. /ppSetYScreen
  19. {    
  20.     /ySpot exch def
  21.     /yAngle exch def
  22.     /yFreq exch def
  23. } def
  24.  
  25. /ppSetKScreen
  26. {    /kSpot exch def
  27.     /kAngle exch def
  28.     /kFreq exch def
  29. } def
  30.  
  31. /box 
  32. {    /wid exch def 
  33.     newpath 
  34.         0 0 moveto
  35.         wid 0 lineto 
  36.         wid wid lineto 
  37.         0 wid lineto 
  38.     closepath 
  39.     fill
  40. } bind def
  41.  
  42. /doCMYKPatches
  43. {    /v exch def
  44.     /h exch def
  45.      gsave
  46.         h v translate
  47.         %cyan boxes
  48.           gsave 
  49.              1 0 0 0 setcmykcolor
  50.             24 box 
  51.             0 96 translate 
  52.             24 box 
  53.             0 24 translate 
  54.             24 box 
  55.             0 24 translate 
  56.             24 box 
  57.         grestore
  58.         
  59.         %magenta boxes
  60.           gsave 
  61.              0 1 0 0 setcmykcolor
  62.             0 48 translate 
  63.             24 box 
  64.             0 24 translate 
  65.             24 box 
  66.             0 24 translate 
  67.             24 box 
  68.             0 48 translate 
  69.             24 box 
  70.         grestore
  71.         
  72.         %yellow box
  73.          gsave 
  74.              0 0 1 0 setcmykcolor
  75.             24 box 
  76.             0 24 translate 
  77.             24 box 
  78.             0 24 translate 
  79.             24 box  
  80.             0 96 translate 
  81.             24 box 
  82.         grestore
  83.         
  84.         %black box
  85.         gsave 
  86.             0 0 0 1 setcmykcolor
  87.             0 168 translate 
  88.             24 box 
  89.         grestore
  90.         
  91.     grestore
  92. } def
  93.  
  94. /doColorLabel
  95. {    %not meaningful in composite
  96.     pop pop pop pop pop pop pop 
  97. } def
  98.  
  99. /doCropMarks
  100. {    .25 sub /bottom exch def
  101.     1.25 add /right exch def
  102.     1.25 add /top exch def
  103.     .25 sub /left exch def
  104.     gsave
  105.         .24 setlinewidth
  106.         0 setgray
  107.         %top left
  108.         left 18 sub top moveto -24 0 rlineto stroke
  109.         left top 18 add moveto 0 24 rlineto stroke
  110.         %top right
  111.         right top 18 add moveto 0 24 rlineto stroke
  112.         right 18 add top moveto 24 0 rlineto stroke
  113.         %bottom left
  114.         left bottom 18 sub moveto 0 -24 rlineto stroke
  115.         left 18 sub bottom moveto -24 0 rlineto stroke
  116.         %bottom right
  117.         right 18 add bottom moveto 24 0 rlineto stroke
  118.         right bottom 18 sub moveto 0 -24 rlineto stroke
  119.     grestore
  120. } def
  121.  
  122. /doCMYKBorder
  123. {    /wt exch def
  124.     /blackC exch def
  125.     /yellowC exch def
  126.     /magentaC exch def
  127.     /cyanC exch def
  128.     /bottom exch def
  129.     /right exch def
  130.     /top exch def
  131.     /left exch def
  132.     gsave
  133.         cFreq cAngle {cSpot}
  134.         mFreq mAngle {mSpot}
  135.         yFreq yAngle {ySpot}
  136.         kFreq kAngle {kSpot}
  137.         setcolorscreen
  138.         wt setlinewidth
  139.         cyanC magentaC yellowC blackC setcmykcolor
  140.         newpath
  141.             left bottom moveto
  142.             left top lineto
  143.             right top lineto
  144.             right bottom lineto
  145.         closepath
  146.         stroke
  147.     grestore
  148. } def
  149.  
  150. /doText
  151. {
  152.     /theStr exch def
  153.     /v exch def
  154.     /h exch def
  155.     
  156.       gsave
  157.         h v moveto
  158.         /Courier findfont 10 scalefont setfont
  159.         theStr show
  160.     grestore
  161. } def
  162.  
  163. /doRegisterMark
  164. {    
  165.     /v exch def
  166.     /h exch def
  167.     
  168.        gsave
  169.         h v translate 
  170.         0 0 moveto
  171.            .24 setlinewidth 0 0 6 0 360 arc stroke
  172.            -10 0 moveto 
  173.         20 0 rlineto 
  174.         0 -10 moveto 
  175.         0 20 rlineto 
  176.         stroke
  177.     grestore
  178. } def
  179.  
  180. /cmykImageProc
  181. {    gsave
  182.  
  183.         /dep exch def
  184.         /wid exch def
  185.         /reproDep exch def
  186.         /reproWid exch def
  187.         /v exch def
  188.         /h exch def
  189.         
  190.         /negDep dep neg def
  191.         /picStr wid string def
  192.         
  193.         cFreq cAngle {cSpot}
  194.         mFreq mAngle {mSpot}
  195.         yFreq yAngle {ySpot}
  196.         kFreq kAngle {kSpot}
  197.         setcolorscreen
  198.         
  199.         h v translate
  200.         newpath
  201.             0 0 moveto
  202.             reproWid 1 add 0 lineto
  203.             reproWid 1 add reproDep 1 add lineto
  204.             0 reproDep 1 add lineto
  205.         closepath
  206.         clip
  207.             
  208.         reproWid reproDep scale
  209.         
  210.         { currentfile token pop (binary) eq {exit} if } loop
  211.  
  212.         wid dep 8                 
  213.         [wid 0 0 negDep 0 dep]    
  214.         { currentfile picStr readstring pop } false 4         
  215.         colorimage    
  216.         
  217.     grestore
  218. } bind def
  219.  
  220.